home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / instan1a / ontop.bas < prev    next >
BASIC Source File  |  1999-10-01  |  569b  |  13 lines
  1. Attribute VB_Name = "OnTop"
  2. Option Explicit
  3. Public Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  4. Public Const HWND_TOPMOST = -1
  5. Public Const HWND_NOTOPMOST = -2
  6. Public Const SWP_NOACTIVATE = &H10
  7. Public Const SWP_NOMOVE = &H2
  8. Public Const SWP_NOSIZE = &H1
  9. Public Sub TopZ(frm As Form)
  10. Dim lRt As Long
  11. lRt = SetWindowPos(frm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE)
  12. End Sub
  13.